0 PRINT"[147]":POKE53274,.:SYS65418
1 IFA=.THENPOKE55,0:POKE56,63:CLR:A=1
5 IFA=1THENA=2:LOAD"ROUTINES V4",8,1
6 IFA=2THENA=3:LOAD"SID.OBJ",8,1
7 IFA=3THENA=4:LOAD"RASTER STUFF.O",8,1
10 FR$="":LA$="":OV$=""
11 NS=10:DIM NA$(NS),FI$(NS)
12 SA=780:SX=781:SY=782
15 SU=51206:SD=51209:REM SCROLL UP&DOWN
16 POKE1020,10:POKE1021,16:POKE1022,7:POKE1023,31:REM    SCROLL BOUNDARIES
20 GOSUB1000:REM     TITLE SCREEN
30 GOSUB1500:REM       MAIN MENU
40 GOSUB2000:REM  PRINT NAMES OF MUSIC
50 GOSUB3000:REM SCROLL MENU AND SELECT
60 GOSUB100 :REM CLEAR WINDOW
64 PRINT"ARE YOU SURE YOU WANT TO QUIT? (Y/N)":POKE198,.
66 A=PEEK(203):IFA<>25ANDA<>39THEN66
68 IFA=39THENGOSUB2020:GOTO50
70 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
72 IFER<>63THENPRINT"[147]":END
74 LOAD"HELLO CONNECT",8
90 PRINT"":STOP
100 PRINTLA$""
110 FORA=1TO5:PRINT"                                    "
120 NEXT:PRINT"[145][145][145][145][145][145]"
130 RETURN
1000 POKE53280,14:POKE53281,1
1010 PRINTCHR$(142)"[147]";
1012 FORA=1TO5:
1013 PRINT"[154]                                        ";
1014 NEXT
1015 PRINT"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1020 FORA=.TO14:PRINT"[154][221]                                      [221]";:NEXT
1030 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
1032 FORA=1TO2:
1033 PRINT"[154]                                        ";
1034 NEXT
1035 PRINT"                                       [157][148] "
1040 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1050 PRINT"[149][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1060 PRINT"[165]LOADSTAR PRESENTS:[170] "
1070 PRINT"[149][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
1080 PRINT"                    "
1090 PRINT"[144][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1100 FORA=1TO5
1110 PRINT"[144][165]                        [167] "
1120 NEXT
1130 PRINT"[144][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
1135 PRINT"                          "
1140 PRINT"[145][145][145][145][145][145][145]SOUNDS OF Q-LINK"
1150 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1160 PRINT"[156]TOP-NOTCH TUNES FROM"
1170 PRINT"THE USERS OF Q-LINK."
1180 PRINT"[150][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1190 PRINT"[165]     SOUNDS OF QLINK PLAYER   [167] "
1191 PRINT"[150][165]        BY: MIKE MAYNARD      [167] "
1192 PRINT"[150][165]    COPYRIGHT 1987, LOADSTAR  [167] "
1200 PRINT"[150][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
1210 PRINT"                                "
1220 FORA=1TONS:READ NA$(A),FI$(A):NEXT
1230 PRINT"[149]  PRESS SPACE TO CONTINUE  [154]":POKE198,.
1240 IFPEEK(203)<>60THEN1240
1250 RETURN
1500 PRINT"[149][165]                  [167]"
1510 PRINT"[165] SOUNDS OF Q-LINK [167] "
1520 PRINT"[149][165] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [167] "
1530 PRINT"[154]         [149][165]  COPYRIGHT 1987  [167] [154]         "
1535 MM=1263:POKEMM,160:POKE54272+MM,14
1540 PRINT"[154]         [149][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154]         "
1545 MM=MM+40:POKEMM,160:POKE54272+MM,14
1550 PRINT"[154]                              [154]       "
1555 MM=MM+40:POKEMM,160:POKE54272+MM,14
1560 PRINT"[154] SOUNDS OF QLINK PLAYER BY MIKE MAYNARD"
1565 MM=MM+40:POKEMM,160:POKE54272+MM,14
1570 PRINT"[154] [146][129][146][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1575 MM=MM+40:POKEMM,160
1580 FORA=1TO7
1590 PRINT"[154] [129][146][165]                                    [167]"
1595 MM=MM+40:POKEMM,160:POKE54272+MM,6
1597 IFA=4THENPRINT"[145][144]--->"TAB(34)"<---"
1600 NEXT
1610 PRINT"[154] [129][146][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1615 MM=MM+40:POKEMM,160:POKE54272+MM,6
1620 FORA=1TO5
1630 PRINT"[154] [129][146][165]                                    [167]"
1635 MM=MM+40:POKEMM,160:POKE54272+MM,6
1640 NEXT
1650 PRINT"[154] [146][129][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1655 MM=MM+40:POKEMM,160:POKE54272+MM,6
1660 PRINT"[154]                                       "
1665 MM=MM+40:POKEMM,160:POKE54272+MM,6
1670 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1680 RETURN
2000 PRINTFR$;
2010 FORA=1TO7:PRINTOV$"[156]"NA$(A):NEXT
2015 SE=4:REM  CURRENT SELECTION
2016 LS$="":REM CLEAR LAST SELECTION
2020 GOSUB100:PRINTLA$"USE CRSR KEYS TO SCROLL THE MUSIC."
2030 PRINT"PRESS [RETURN] TO HEAR THE MUSIC    "
2040 PRINT"THAT THE ARROWS POINT AT."
2050 PRINT"F1 - PLAY ALL ............ F7 - QUIT"
2060 RETURN
3000 POKE198,.:AB=.:PA=.
3005 B=PEEK(653):A=PEEK(203):IFA<>7ANDA<>2ANDA<>4ANDA<>3ANDA<>1THEN3000
3010 IF((B=.)AND(A=2))OR((B)AND(A=7))THEN GOSUB3100:GOTO3000
3020 IF((B=.)AND(A=7))OR((B)AND(A=2))THEN GOSUB3200:GOTO3000
3030 IF(A=1)THEN4000:REM  PLAY SELECTED
3040 IF(A=4)THEN4100:REM  PLAY ALL
3050 IF(A=3)THEN RETURN:REM  QUIT
3060 GOTO3000
3100 SE=SE-1:IFSE=.THENSE=NS
3110 TP=SE-3:IFTP<1THENTP=NS+TP
3120 SYSSD:POKE648,216:SYSSD:POKE648,4:PRINTFR$OV$"[156]"NA$(TP)
3130 RETURN
3200 SE=SE+1:IFSE=NS+1THENSE=1
3210 BO=SE+3:IFBO>NSTHENBO=BO-NS
3220 SYSSU:POKE648,216:SYSSU:POKE648,4:PRINTLA$OV$"[156]"NA$(BO)
3230 RETURN
3999 REM      PLAY MUSIC (PL)
4000 PL=SE
4010 GOSUB6000:REM    LOAD MUSIC
4020 GOSUB7000:REM    PLAY MUSIC
4030 GOSUB6500:REM  DISPLAY CREDITS
4040 GOTO3000
4097 :
4098 :
4099 REM     PLAY ALL MUSIC
4100 MM=SE:PA=-1:FORZZ=SETONS
4110 PL=ZZ
4120 GOSUB6000:REM    LOAD MUSIC
4130 GOSUB7000:REM    PLAY MUSIC
4140 GOSUB6500:REM  DISPLAY CREDITS
4150 GOSUB3200
4155 IF(AB)THENGOSUB2020:GOTO3000
4160 NEXT:IF(MM=1)OR(AB)THENGOSUB2020:GOTO3000
4170 FORZZ=1TOMM-1
4180 PL=ZZ
4190 GOSUB6000:REM     LOAD MUSIC
4200 GOSUB7000:REM     PLAY MUSIC
4210 GOSUB6500:REM   DISPLAY CREDITS
4220 GOSUB3200:REM  ADVANCE SELECTOR
4225 IF(AB)THENGOSUB2020:GOTO3000
4230 NEXT:GOSUB2020:GOTO3000
6000 IFLS$=FI$(PL)THENRETURN
6001 LS$=FI$(PL)
6003 GOSUB100:LI$="LOADING "+NA$(PL):LI=LEN(LI$):TA=20-LI/2
6005 PRINT""TAB(TA)LI$
6010 POKESA,1:POKESX,8:POKESY,.:SYS65466
6020 FORK=1TOLEN(FI$(PL))
6030 POKE584+K,ASC(MID$(FI$(PL),K)):NEXT
6040 POKESA,LEN(FI$(PL)):POKESX,73:POKESY,2:SYS65469
6050 POKESA,.:POKESX,.:POKESY,64:SYS65493
6060 EA=PEEK(SX)+PEEK(SY)*256
6070 RETURN
6500 GOSUB100:FORA=EATO16384STEP-1
6510 IF(PEEK(A)=79)AND(PEEK(A-1)=1)THENCR=A+1:A=16384
6520 NEXT:GOSUB100:SYS16130
6525 GOSUB100:PRINT"";:HE=.:AD=.
6530 PRINTCHR$(PEEK(CR+AD));:IFPEEK(CR+AD)=13THENPRINT"";
6540 AD=AD+1:IFPEEK(CR+AD)<>.THEN6530
6550 POKE198,.
6555 PRINT"[154]          PRESS "CHR$(34)"H"CHR$(34)" FOR HELP.          "
6560 KE=PEEK(203):IF(KEY=29)OR(KEY=60)OR(KEY=10)OR(KEY=62)THEN6562
6561 IFPEEK(49152)<>0THEN6560
6562 IF(KEY=60)AND(HE)THEN6525
6563 IF(KEY=10)AND(PA)THENAB=-1:GOTO6570
6564 IF(KEY=29)AND(NOT(HE))THENGOSUB7500:GOTO6560
6565 IF(KEY=60)OR(KEY=29)OR(KEY=10)THEN6560
6570 GOSUB100:SYS16130:POKE53281,1
6572 POKE49152,.:POKE54276,.:POKE54283,.:POKE54290,.:SYS49629
6575 PRINT"[154] SOUNDS OF QLINK PLAYER BY MIKE MAYNARD"
6580 IF(NOT(PA))THENGOSUB100:GOSUB2020
6590 RETURN
7000 SYS49435:POKESX,.:POKESY,64:SYS49458:POKE49152,7:RETURN
7500 PRINT"[154] SOUNDS OF QLINK PLAYER BY MIKE MAYNARD"
7510 GOSUB100:PRINT"[158] PRESS "CHR$(34)"Q"CHR$(34)" TO QUIT CURRENT MUSIC."
7520 IFNOT(PA)THENPRINT:GOTO7540
7530 PRINT" PRESS "CHR$(34)"A"CHR$(34)" TO ABORT PLAY ALL."
7540 PRINT" PRESS SPACE TO RE-DISPLAY CREDITS."
7550 HE=-1:RETURN
10000 REM NAME OF SONG (MENU),NAME OF             PERSON,FILENAME
10001 DATA SINFONIA 10,SINFONIA/10.MUS
10002 DATA SINFONIA 12,SINFONIA/12.MUS
10003 DATA SINFONIA 15,SINFONIA/15.MUS
10004 DATA ENTERTAINERS RAG,ENTRTNRS RAG.MUS
10005 DATA POET & PEASANT OVT,\POET/PEASNT.MUS
10006 DATA CAKE WALK,CAKE WALK.MUS
10007 DATA TURK MARCH,TURK MARCH.MUS
10008 DATA SONATA C,SONATA C.MUS
10009 DATA TWENTIES,TWENTIES.MUS
10010 DATA HEXENTANZ,HEXENTANZ.MUS
10011 DATA
10012 DATA
10013 DATA
10014 DATA
10015 DATA
10016 DATA
10017 DATA